﻿Imports GBDZafiro

Public Class FrmLogin

    Private Sub BtLogin_Click(sender As System.Object, e As System.EventArgs) Handles BtLogin.Click
        'DialogResult = Windows.Forms.DialogResult.No
        loguear()
    End Sub

    Private Sub tbUsuario_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles _
        tbUsuario.KeyPress, tbClave.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            loguear()
        End If
    End Sub

    Sub loguear()
        Dim usuario, clave As String
        Dim resultado As Integer

        usuario = tbUsuario.Text
        clave = tbClave.Text

        If usuario.Length < 1 Then
            MessageBox.Show("Digite el usuario", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If


        resultado = GBDZafiro.Usuario.Login(usuario, clave)
        If resultado = 1 Then
            MessageBox.Show("El usuario no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        ElseIf resultado = 2 Then
            MessageBox.Show("Contraseña incorrecta", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Else
            Dim dtUsuario As DataTable = GBDZafiro.Usuario.ConsxCodUsuario(usuario)
            Login.usuario = New Usuario
            Login.usuario.codUsuario = usuario
            Login.usuario.nomUsuario = dtUsuario.Rows(0)("NOM_USUARIO")
            Login.usuario.perfil = dtUsuario.Rows(0)("PERFIL")
            vgCodUsuario = usuario
            vgVigencia = cbAño.Text
            DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
        End If
    End Sub

    Private Sub FrmLogin_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargarCombos()
        lbFecha.Text = Date.Now.ToLongDateString.ToString
    End Sub

    Sub cargarCombos()

        tbClave.Clear()
        tbUsuario.Clear()

        Dim dtModulos As DataTable = GBDZafiro.Modulo.ConsultarAll()
        Dim dtVigencias As DataTable = GBDZafiro.Vigencia.ConsultarAll()
        Dim ds As New DataSet

        ds.Tables.Add(dtModulos)
        ds.Tables.Add(dtVigencias)

        cbAño.DataSource = ds.Tables(1)
        cbAño.DisplayMember = "VIGENCIA"
        cbAño.ValueMember = "VIGENCIA"

    End Sub

    Private Sub btCancelar_Click(sender As System.Object, e As System.EventArgs) Handles btCancelar.Click
        Me.Close()
    End Sub
    
End Class